home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / casterli.arc / MISC.4TH < prev    next >
Encoding:
Text File  |  1986-04-26  |  256 b   |  21 lines
  1. ( Misc. Forth Extentions )
  2.  
  3. : 'LIT BL WORD HERE 1+ C@ [COMPILE] LITERAL ; IMMEDIATE
  4.  
  5. : MTB EMPTY-BUFFERS ;
  6.  
  7. : !CSP SP@ CSP ! ;
  8.  
  9. : DECOMP GOESINTO ;
  10.  
  11. : R R> DUP >R ;
  12.  
  13.  
  14.  
  15.  
  16.  
  17. MPILE] LITERAL ; IMMEDIATE
  18.  
  19. : MTB EMPTY-BUFFERS ;
  20.  
  21. : !CSP SP@ CSP